//////////////////////////////////////////////////////////////////// // // kbdswitch // an OSAX // (1 line added to a shell made by butchering one of // D.Olson's excellent examples) // // John Blackburne, johnb@tempest.net.hk, 14 August 1995 // // ////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////// // // main() // The entry to our Scripting Addition. // Remember to declare it pascal!! // ////////////////////////////////////////////////////////////////// pascal OSErr main( AppleEvent *theEvent, AppleEvent *theReply, long theRefCon) { OSErr theErr = noErr; /* Switch the keyboard */ KeyScript(smKeyNextKybd); return theErr; // And return our error. }
Intro * User Docs * Source * Project Notes
© John Blackburne, johnb@hk.super.net, 9th June 1996